home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / PG / COMBOX.ZIP / NOISELIB.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-04-11  |  1.2 KB  |  87 lines
  1. unit NoiseLib ;
  2.  
  3. interface
  4.  
  5. uses
  6.   crt ;
  7.  
  8.   procedure Note ( Frequency : word ; Duration : word ) ;
  9.  
  10.   procedure Blip ;
  11.   procedure Bleep ;
  12.   procedure Beep ;
  13.   procedure Bloop ;
  14.   procedure ThreeSlowBlips ;
  15.   procedure ThreeFastBlips ;
  16.   procedure FatalErrorBloop ;
  17.  
  18. implementation
  19.  
  20.   procedure Note ( Frequency : word ; Duration : word ) ;
  21.  
  22.   begin
  23.     if Frequency > 0 then
  24.       sound ( Frequency ) ;
  25.  
  26.     delay ( Duration ) ;
  27.     nosound ;
  28.   end;
  29.  
  30.   procedure Blip ;
  31.  
  32.   begin
  33.     Note ( 4000, 15 ) ;
  34.   end ;
  35.  
  36.   procedure Beep ;
  37.  
  38.   begin
  39.     Note ( 750, 15 ) ;
  40.   end ;
  41.  
  42.   procedure Bleep ;
  43.  
  44.   begin
  45.     Note ( 2000, 80 ) ;
  46.     Note ( 1000, 80 ) ;
  47.     Note ( 2000, 80 ) ;
  48.   end ;
  49.  
  50.   procedure Bloop ;
  51.  
  52.   begin
  53.     Note ( 1000, 80 ) ;
  54.     Note (  500, 80 ) ;
  55.     Note ( 1000, 80 ) ;
  56.   end ;
  57.  
  58.   procedure ThreeSlowBlips ;
  59.  
  60.   begin
  61.     Blip ;
  62.     Note ( 0, 200 ) ;
  63.     Blip ;
  64.     Note ( 0, 200 ) ;
  65.     Blip ;
  66.   end ;
  67.  
  68.   procedure ThreeFastBlips ;
  69.  
  70.   begin
  71.     Blip ;
  72.     Note ( 0, 20 ) ;
  73.     Blip ;
  74.     Note ( 0, 20 ) ;
  75.     Blip ;
  76.   end ;
  77.  
  78.   procedure FatalErrorBloop ;
  79.  
  80.   begin
  81.     Bloop ;
  82.     Note ( 0, 200 ) ;
  83.     Bleep ;
  84.   end ;
  85.  
  86. end.
  87.